# a composite sample method which implemented the sampling proceduce 
#   from diggle's composite density index
# 
# Author: guochun
###############################################################################


samplingQuick.diggleCp=function(sampleMethod,populationData){
	sp1=sp2=sampleMethod
	#if(sampleMethod@time%%2 != 0)
	 #  stop("the total sample time can not be divided by 2")
	sp1@time=round(sampleMethod@time/2)
	sp2@time=round(sampleMethod@time/2)
	d1=samplingQuick.eToe(sp1,populationData)
	d2=samplingQuick.pToe(sp2,populationData)
	attr(d1,"d2")=d2
	return(d1)
}
